Suzy B Software 2/Suzy B Software CD-ROM 2 (1994).iso/stos/stos_89/sagacast/sagacast.bas

Atari STOS Basic | 1989-07-03 | 183KB | 1,277 lines

1 CLEAR
10 REM **init**
100 PAPER
1000 REM *** Main loop ***
10000 GOSUB
10005 SPRITE
10010 ZOOM
10015 LOCATE
10020 LOCATE
10030 LOCATE
10040 PHYSIC
1005 GOSUB
10050 SPRITE
10060 MOVE X
10070 FLASH
10080 FLASH
10090 REM *** intro - screen 2 - (sp 4-15) lediga ***
10095 WAIT KEY
101 DIM
1010 REM haer ovriga gosubar
10100 PHYSIC
1011 IF
10110 VARNAME
1012 ANIM
10120 INK
1013 GOSUB
10130 LOCATE
1014 VARNAME
10140 PEN
1015 IF
10150 LOCATE
10155 VARNAME
1016 IF
10160 INK
10161 INK
10162 PAPER
1017 IF
10170 VARNAME
10180 IF
10190 IF
1020 GOTO
10200 IF
10210 IF
10220 IF
10225 IF
10226 IF
10227 GOSUB
10230 GOTO
10250 PAPER
10260 LOCATE
10270 MUSIC
10280 RETURN
10299 REM *** GOOD LUCK- message ****
10300 CLS
10310 GOSUB
10320 VARNAME
10330 FOR
10340 VARNAME
10350 GOSUB
10360 IF
10370 NEXT
10390 RETURN
10499 REM * instuktioner *
10500 CLS
10510 PEN
10520 LOCATE
10530 PRINT
10540 PRINT
10545 PRINT
10550 LOCATE
10555 CLS
10560 PEN
10570 CDOWN
10580 LOCATE
10590 CLS
106 GOSUB
10600 RESTORE
10605 READ
10610 SPRITE
10615 PEN
10620 LOCATE
10625 LOCATE
10630 CLS
10635 READ
10640 SPRITE
10645 LOCATE
10650 LOCATE
10655 LOCATE
10660 CLS
10665 READ
10670 SPRITE
10675 LOCATE
10680 LOCATE
10685 LOCATE
10800 DATA
10850 DATA
10900 DATA
10999 REM *** high score list ***
11 VARNAME
110 GOSUB
11000 CLS
11010 INK
11011 DEF
11015 FOR
11016 PEN
11030 VARNAME
11031 VARNAME
11032 VARNAME
11033 SCROLL
11034 IF
11035 NEXT
11036 FOR
11050 RETURN
11060 LOCATE
11065 IF
11070 IF
11075 IF
11080 IF
11085 IF
11090 PRINT
11099 REM *** check current score with high scores ***
11100 VARNAME
11110 VARNAME
11120 WHILE
11130 VARNAME
11140 WEND
11145 IF
11150 COPY
11155 REM fanfar
11160 CLS
11170 LOCATE
11180 FOR
11190 POKE
11195 RETURN
11199 REM *** save list ***
11200 BSAVE
11210 RETURN
11299 REM *** load hi score list ***
11300 BLOAD
11310 RETURN
11500 CLS
11505 PEN
11600 LOGIC
11605 FOR
11610 FOR
11620 GOSUB
11625 VARNAME
11630 IF
11650 NEXT
11655 IF
11660 NEXT
11665 CLS
11670 LOGIC
11700 VARNAME
11701 VARNAME
11702 VARNAME
11703 VARNAME
11704 VARNAME
11705 VARNAME
11706 VARNAME
11707 VARNAME
11710 DEF
11715 VARNAME
11720 FOR
11721 IF
11722 VARNAME
11730 VARNAME
11740 IF
11750 IF
11755 IF
11756 IF
11757 NEXT
11758 RETURN
11759 REM * scroll horisontellt *
11760 FOR
11765 IF
11770 VARNAME
11775 SCREEN COPY
11776 GOTO
11780 VARNAME
11785 SCREEN COPY
11790 SCROLL
11791 NEXT
11800 RETURN
11805 REM * scroll vertikalt *
11810 FOR
11815 IF
11820 VARNAME
11825 SCREEN COPY
11827 GOTO
11830 VARNAME
11840 SCREEN COPY
11850 SCROLL
11855 NEXT
11860 RETURN
11999 REM * disc error trapping w/l routines *
12000 BELL
12005 IF
12010 IF
12015 PRINT
12020 LOCATE
12025 RESUME
12099 REM * game completion routine *
12100 CLS
12110 PRINT
12120 PRINT
12130 SPRITE
12140 LOCATE
12150 PRINT
12160 SPRITE
12170 LOCATE
12180 LOCATE
12190 WAIT KEY
135 REM las in karta
14 MUSIC
142 RESTORE
145 FOR
15 DIM
150 FOR
1500 IF
1505 VARNAME
155 READ
160 NEXT
165 NEXT
170 VARNAME
175 VARNAME
179 IF
180 GOSUB
181 IF
182 ON ERROR
183 VARNAME
185 VARNAME
190 REM *** huvudrutin for styrning av gubbe ***
191 IF
192 VARNAME
193 IF
195 IF
1999 REM *** collision detection ***
2 VARNAME
20 VARNAME
200 IF
2000 VARNAME
2005 IF
201 GOTO
2010 IF
2011 IF
2012 IF
2014 IF
2015 RETURN
202 VARNAME
2020 FOR
2023 IF
2024 RETURN
2025 RESTORE
2030 FOR
2035 READ
2040 IF
2045 NEXT
2046 IF
205 IF
2050 IF
2055 IF
2056 IF
2057 IF
206 GOTO
2060 GOTO
207 VARNAME
210 IF
2100 IF
2105 IF
2110 IF
2115 IF
2120 IF
2125 IF
2130 GOTO
2135 BELL
2140 GOSUB
2144 VARNAME
2145 IF
2149 VARNAME
215 IF
2150 IF
2155 VARNAME
219 IF
220 IF
2200 RETURN
230 IF
235 RETURN
24 FOR
25 VARNAME
250 IF
255 IF
256 GOTO
260 IF
265 IF
2999 REM * score table *
3 RESERVE
3000 LOGIC
30001 DATA
30004 DATA
30006 DATA
30007 DATA
30008 DATA
30009 DATA
3001 LOCATE
30010 DATA
30012 DATA
30013 DATA
30014 DATA
30015 DATA
30016 DATA
30017 DATA
30018 DATA
30019 DATA
3002 LOCATE
30020 DATA
30021 DATA
30022 DATA
30024 DATA
30026 DATA
30029 DATA
30030 DATA
30031 DATA
30032 DATA
30033 DATA
30034 DATA
30035 DATA
30036 DATA
30037 DATA
30038 DATA
30039 DATA
30040 DATA
30041 DATA
30044 DATA
30045 DATA
30046 DATA
30047 DATA
30048 DATA
30049 DATA
3005 READ
30050 DATA
30052 DATA
30053 DATA
30054 DATA
30056 DATA
30057 DATA
30058 DATA
30059 DATA
3006 SPRITE
30060 DATA
30062 DATA
30063 DATA
30064 DATA
30065 DATA
30066 DATA
30067 DATA
30068 DATA
30069 DATA
3007 GOTO
30070 DATA
30073 DATA
30075 DATA
30077 DATA
30078 DATA
30079 DATA
30080 DATA
30081 DATA
30082 DATA
30084 DATA
30085 DATA
30086 DATA
30087 DATA
30089 DATA
30090 DATA
30092 DATA
30093 DATA
30095 DATA
30096 DATA
30097 DATA
30099 DATA
3010 LOCATE
30100 DATA
30101 DATA
30102 DATA
30103 DATA
30104 DATA
30105 DATA
30106 DATA
30107 DATA
30108 DATA
30109 DATA
30111 DATA
30112 DATA
30113 DATA
30114 DATA
30115 DATA
30117 DATA
30118 DATA
30119 DATA
30121 DATA
30122 DATA
30123 DATA
30124 DATA
30126 DATA
30127 DATA
30128 DATA
30129 DATA
30130 DATA
30131 DATA
30132 DATA
30133 DATA
3015 LOGIC
3020 LOCATE
3035 INK
310 IF
3100 SCREEN COPY
31000 DATA
311 IF
312 IF
313 VARNAME
314 VARNAME
315 RETURN
3200 DATA
3499 REM val av vapen(1-5), anvaendande av vapen
350 REM climb down or duck
3500 VARNAME
3504 IF
3505 IF
3510 IF
3515 IF
3520 IF
3525 RETURN
3526 LOGIC
3530 INK
355 IF
3550 CLEAR KEY
360 IF
370 IF
375 ANIM
380 VARNAME
390 RETURN
391 IF
392 IF
393 VARNAME
394 VARNAME
3999 REM fire intryckt
4 MODE
400 REM new screen
4000 IF
40000 DATA
4010 IF
40100 DATA
4020 IF
40200 DATA
4030 IF
40300 DATA
4040 IF
40400 DATA
405 MOVE Y
4050 IF
40500 DATA
40600 DATA
4070 RETURN
40700 DATA
40800 DATA
40900 DATA
4100 IF
41000 DATA
4105 VARNAME
4109 IF
4110 IF
41100 DATA
4120 SPRITE
41200 DATA
4130 GOTO
41300 DATA
4140 SPRITE
41400 DATA
415 VARNAME
4150 MOVE X
41500 DATA
4155 ANIM
4160 VARNAME
41600 DATA
417 VARNAME
4170 IF
41700 DATA
41800 DATA
41900 DATA
4199 RETURN
420 RETURN
4200 IF
4201 GOSUB
4202 PEN
4203 INK
4204 DRAW
4205 PEN
4206 IF
4207 IF
4208 IF
4209 GOTO
4210 VARNAME
4230 ANIM
4235 IF
4240 RESTORE
4241 IF
4242 IF
4245 VARNAME
4246 IF
4250 FOR
4270 VARNAME
4272 VARNAME
4273 IF
4275 IF
4280 VARNAME
4290 DATA
4299 RETURN
4300 IF
4301 IF
4305 VARNAME
4310 VARNAME
4320 MOVE Y
4325 IF
4330 IF
4340 MOVE X
4350 REM ev cool animation
4390 VARNAME
4399 RETURN
4400 IF
4405 VARNAME
4409 IF
4410 IF
4420 SPRITE
4430 GOTO
4440 SPRITE
4450 MOVE X
4455 ANIM
4460 VARNAME
4470 IF
4499 RETURN
44999 REM *** sprite handling del 2 ***
450 REM *** Fall ***
4500 IF
45000 VARNAME
45005 IF
45010 RESTORE
45014 IF
45020 READ
45021 SPRITE
45022 IF
45023 IF
45024 REM * a,x,y princip i data 30000- *
45025 VARNAME
45026 IF
45027 ANIM
45030 VARNAME
45031 IF
45032 IF
45035 MOVE X
45040 IF
45045 IF
4505 VARNAME
45050 IF
45055 IF
45060 IF
45065 IF
45070 IF
45080 REM ovriga animationer haer
4509 IF
451 IF
4510 IF
45100 VARNAME
452 VARNAME
4520 SPRITE
4530 GOTO
4540 SPRITE
4550 MOVE X
4555 ANIM
4560 VARNAME
4570 IF
4599 RETURN
485 MOVE Y
490 RETURN
4999 REM *** nyckel avlemmning ***
5 SYNCHRO
5000 REM coolt ljud(fanfar)
50000 FOR
50001 RESTORE
50002 VARNAME
50005 DATA
50010 DATA
50011 DATA
50012 DATA
50013 DATA
50035 DATA
50036 DATA
50037 DATA
50038 DATA
5005 VARNAME
50060 DATA
50061 DATA
50062 DATA
50063 DATA
50085 DATA
50086 DATA
50087 DATA
50088 DATA
5010 RESTORE
5011 IF
50110 DATA
50111 DATA
50112 DATA
50113 DATA
50135 DATA
50136 DATA
50137 DATA
50138 DATA
50160 DATA
50161 DATA
50162 DATA
50163 DATA
50185 DATA
50186 DATA
50187 DATA
50188 DATA
5020 VARNAME
50210 DATA
50211 DATA
50212 DATA
50213 DATA
50235 DATA
50236 DATA
50237 DATA
50238 DATA
50260 DATA
50261 DATA
50262 DATA
50263 DATA
50285 DATA
50286 DATA
50287 DATA
50288 DATA
5030 IF
50310 DATA
50311 DATA
50312 DATA
50313 DATA
50335 DATA
50336 DATA
50337 DATA
50338 DATA
5035 VARNAME
50360 DATA
50361 DATA
50362 DATA
50363 DATA
50385 DATA
50386 DATA
50387 DATA
50388 DATA
5040 VARNAME
50410 DATA
50411 DATA
50412 DATA
50413 DATA
50435 DATA
50436 DATA
50437 DATA
50438 DATA
5045 IF
50460 DATA
50461 DATA
50462 DATA
50463 DATA
50485 DATA
50486 DATA
50487 DATA
50488 DATA
5050 LOCATE
50510 DATA
50511 DATA
50512 DATA
50513 DATA
50535 DATA
50536 DATA
50537 DATA
50538 DATA
50560 DATA
50561 DATA
50562 DATA
50563 DATA
50585 DATA
50586 DATA
50587 DATA
50588 DATA
5060 CLS
5061 CLS
50610 DATA
50611 DATA
50612 DATA
50613 DATA
5062 LOCATE
5063 INK
50635 DATA
50636 DATA
50637 DATA
50638 DATA
5065 VARNAME
50660 DATA
50661 DATA
50662 DATA
50663 DATA
50685 DATA
50686 DATA
50687 DATA
50688 DATA
5070 RETURN
50710 DATA
50711 DATA
50712 DATA
50713 DATA
50735 DATA
50736 DATA
50737 DATA
50738 DATA
50760 DATA
50761 DATA
50762 DATA
50763 DATA
50785 DATA
50786 DATA
50787 DATA
50788 DATA
50810 DATA
50811 DATA
50812 DATA
50813 DATA
50835 DATA
50836 DATA
50837 DATA
50838 DATA
50860 DATA
50861 DATA
50862 DATA
50863 DATA
50885 DATA
50886 DATA
50887 DATA
50888 DATA
50910 DATA
50911 DATA
50912 DATA
50913 DATA
50935 DATA
50936 DATA
50937 DATA
50938 DATA
50960 DATA
50961 DATA
50962 DATA
50963 DATA
50985 DATA
50986 DATA
50987 DATA
50988 DATA
51010 DATA
51011 DATA
51012 DATA
51013 DATA
51035 DATA
51036 DATA
51037 DATA
51038 DATA
51060 DATA
51061 DATA
51062 DATA
51063 DATA
51085 DATA
51086 DATA
51087 DATA
51088 DATA
51110 DATA
51111 DATA
51112 DATA
51113 DATA
51135 DATA
51136 DATA
51137 DATA
51138 DATA
51160 DATA
51161 DATA
51162 DATA
51163 DATA
51185 DATA
51186 DATA
51187 DATA
51188 DATA
51210 DATA
51211 DATA
51212 DATA
51213 DATA
51235 DATA
51236 DATA
51237 DATA
51238 DATA
51260 DATA
51261 DATA
51262 DATA
51263 DATA
51285 DATA
51286 DATA
51287 DATA
51288 DATA
51310 DATA
51311 DATA
51312 DATA
51313 DATA
51335 DATA
51336 DATA
51337 DATA
51338 DATA
51360 DATA
51361 DATA
51362 DATA
51363 DATA
51385 DATA
51386 DATA
51387 DATA
51388 DATA
51410 DATA
51411 DATA
51412 DATA
51413 DATA
51435 DATA
51436 DATA
51437 DATA
51438 DATA
51460 DATA
51461 DATA
51462 DATA
51463 DATA
51485 DATA
51486 DATA
51487 DATA
51488 DATA
51510 DATA
51511 DATA
51512 DATA
51513 DATA
51535 DATA
51536 DATA
51537 DATA
51538 DATA
51560 DATA
51561 DATA
51562 DATA
51563 DATA
51585 DATA
51586 DATA
51587 DATA
51588 DATA
51610 DATA
51611 DATA
51612 DATA
51613 DATA
51635 DATA
51636 DATA
51637 DATA
51638 DATA
51660 DATA
51661 DATA
51662 DATA
51663 DATA
51685 DATA
51686 DATA
51687 DATA
51688 DATA
51710 DATA
51711 DATA
51712 DATA
51713 DATA
51735 DATA
51736 DATA
51737 DATA
51738 DATA
51760 DATA
51761 DATA
51762 DATA
51763 DATA
51785 DATA
51786 DATA
51787 DATA
51788 DATA
51810 DATA
51811 DATA
51812 DATA
51813 DATA
51835 DATA
51836 DATA
51837 DATA
51838 DATA
51860 DATA
51861 DATA
51862 DATA
51863 DATA
51885 DATA
51886 DATA
51887 DATA
51888 DATA
51910 DATA
51911 DATA
51912 DATA
51913 DATA
51935 DATA
51936 DATA
51937 DATA
51938 DATA
51960 DATA
51961 DATA
51962 DATA
51963 DATA
51985 DATA
51986 DATA
51987 DATA
51988 DATA
5200 DATA
52010 DATA
52011 DATA
52012 DATA
52013 DATA
52035 DATA
52036 DATA
52037 DATA
52038 DATA
52060 DATA
52061 DATA
52062 DATA
52063 DATA
52085 DATA
52086 DATA
52087 DATA
52088 DATA
52110 DATA
52111 DATA
52112 DATA
52113 DATA
52135 DATA
52136 DATA
52137 DATA
52138 DATA
52160 DATA
52161 DATA
52162 DATA
52163 DATA
52185 DATA
52186 DATA
52187 DATA
52188 DATA
52210 DATA
52211 DATA
52212 DATA
52213 DATA
52235 DATA
52236 DATA
52237 DATA
52238 DATA
52260 DATA
52261 DATA
52262 DATA
52263 DATA
52285 DATA
52286 DATA
52287 DATA
52288 DATA
52310 DATA
52311 DATA
52312 DATA
52313 DATA
52335 DATA
52336 DATA
52337 DATA
52338 DATA
52360 DATA
52361 DATA
52362 DATA
52363 DATA
52385 DATA
52386 DATA
52387 DATA
52388 DATA
52410 DATA
52411 DATA
52412 DATA
52413 DATA
52435 DATA
52436 DATA
52437 DATA
52438 DATA
52460 DATA
52461 DATA
52462 DATA
52463 DATA
52485 DATA
52486 DATA
52487 DATA
52488 DATA
52510 DATA
52511 DATA
52512 DATA
52513 DATA
52535 DATA
52536 DATA
52537 DATA
52538 DATA
52560 DATA
52561 DATA
52562 DATA
52563 DATA
52585 DATA
52586 DATA
52587 DATA
52588 DATA
52610 DATA
52611 DATA
52612 DATA
52613 DATA
52635 DATA
52636 DATA
52637 DATA
52638 DATA
52660 DATA
52661 DATA
52662 DATA
52663 DATA
52685 DATA
52686 DATA
52687 DATA
52688 DATA
52710 DATA
52711 DATA
52712 DATA
52713 DATA
52735 DATA
52736 DATA
52737 DATA
52738 DATA
52760 DATA
52761 DATA
52762 DATA
52763 DATA
52785 DATA
52786 DATA
52787 DATA
52788 DATA
52810 DATA
52811 DATA
52812 DATA
52813 DATA
52835 DATA
52836 DATA
52837 DATA
52838 DATA
52860 DATA
52861 DATA
52862 DATA
52863 DATA
52885 DATA
52886 DATA
52887 DATA
52888 DATA
52910 DATA
52911 DATA
52912 DATA
52913 DATA
52935 DATA
52936 DATA
52937 DATA
52938 DATA
52960 DATA
52961 DATA
52962 DATA
52963 DATA
52985 DATA
52986 DATA
52987 DATA
52988 DATA
53010 DATA
53011 DATA
53012 DATA
53013 DATA
53035 DATA
53036 DATA
53037 DATA
53038 DATA
53060 DATA
53061 DATA
53062 DATA
53063 DATA
53085 DATA
53086 DATA
53087 DATA
53088 DATA
53110 DATA
53111 DATA
53112 DATA
53113 DATA
53135 DATA
53136 DATA
53137 DATA
53138 DATA
53160 DATA
53161 DATA
53162 DATA
53163 DATA
53185 DATA
53186 DATA
53187 DATA
53188 DATA
53210 DATA
53211 DATA
53212 DATA
53213 DATA
53235 DATA
53236 DATA
53237 DATA
53238 DATA
53260 DATA
53261 DATA
53262 DATA
53263 DATA
53285 DATA
53286 DATA
53287 DATA
53288 DATA
53310 DATA
53311 DATA
53312 DATA
53313 DATA
53335 DATA
53336 DATA
53360 DATA
53361 DATA
5499 REM *** WEAPON HIT(sd1-sd4 spriteinfo) ***
5500 REM hit villkor&ljud
5550 MOVE
5560 ANIM
5565 RESTORE
5570 READ
5571 VARNAME
5575 IF
5576 IF
5580 GOTO
5585 IF
5590 ANIM
5595 VARNAME
5600 RETURN
5700 DATA
5799 REM *** score print ***
5800 LOGIC
5810 RETURN
5999 REM * miss *
6 FLASH
600 REM *** ERROR DETECTED ***
6000 MOVE
6010 VARNAME
6020 VARNAME
6021 IF
6022 IF
6025 CLS
6026 CLS
6029 MOVE
6030 SYNCHRO
6035 IF
6040 VARNAME
605 IF
6050 RETURN
606 IF
607 IF
609 PEN
610 WAIT KEY
615 IF
620 IF
625 IF
628 IF
629 POP
630 IF
631 GOSUB
632 SPRITE
635 RESUME
6499 REM *** ingang:fonx,fony fona;tecken nr,fonsp;sprite nr ***
6500 VARNAME
6507 IF
6510 FOR
6515 VARNAME
6520 VARNAME
6525 FOR
6530 SPRITE
6535 VARNAME
6540 NEXT
6541 SPRITE
6545 RETURN
6599 REM * GAME OVER MESSAGE * - end game rutin
6600 POP
6605 ANIM
6610 VARNAME
6611 VARNAME
6615 VARNAME
6620 FOR
6625 VARNAME
6635 GOSUB
6640 VARNAME
6645 IF
6650 NEXT
6655 MUSIC
6660 GOSUB
6665 LOGIC
6675 FOR
6685 SCREEN COPY
6690 NEXT
6695 WAIT KEY
6999 REM * ljudrutiner - checkrutin; anropas varje cykel(synchro 1000-); kolla om ngn ljudforendring, anropsrutin; startar ljudeffekterna *
7000 IF
7010 IF
7020 IF
7030 GOTO
7040 REM on FX gosub 7150,7200,7300,7400 osv, obs delrutiner ev andra adresser
7050 GOTO
7080 IF
7085 IF
7090 RETURN
7100 TIMER
7110 ON
7120 RETURN
7150 VARNAME
7160 MUSIC
7170 RETURN
7200 VARNAME
7210 MUSIC
7220 ENVEL
7230 RETURN
7300 VARNAME
7310 MUSIC
7320 ENVEL
7330 RETURN
7400 VARNAME
7410 MUSIC
7420 ENVEL
7430 RETURN
7500 VARNAME
7510 MUSIC
7520 ENVEL
7530 RETURN
7600 VARNAME
7610 MUSIC
7620 ENVEL
7630 RETURN
7700 VARNAME
7710 MUSIC
7720 ENVEL
7730 RETURN
8999 REM * turn sprites off but not the music(unlike off) *
9000 REM
9010 FOR
9015 ANIM
9016 NEXT
9017 UPDATE
9020 RETURN
9499 REM hitta pallett
9500 VARNAME
9510 VARNAME
9520 FOR
9530 COLOUR
9540 NEXT
9550 RETURN
99 DIM
9999 REM * intro - instruktioner, skryt, greetings, game options+annat trams *